﻿Public Class DMDvtHamLuong_Report
    Dim dt As DataTable
    Private Sub DMDvtHamLuong_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DataSetReport.dmdvthamgluong' table. You can move, or remove it, as needed.
        ' Me.dmdvthamgluongTableAdapter.Fill(Me.DataSetReport.dmdvthamgluong)
        Me.DonvisudungTableAdapter.Fill(Me.ErpharmaDataSet.donvisudung)
        Me.IReportViewer1.setParameter(Me.ErpharmaDataSet.donvisudung)
        Me.IReportViewer1.RefreshReport()
    End Sub
    Public Sub setDt(ByVal dt As DataTable)
        Me.DataSetReport.dmdvthamgluong.Clear()
        Me.dt = dt
        Me.DataSetReport.dmdvthamgluong.Merge(dt)
    End Sub

End Class